From: Glenn Morris <rgm@gnu.org>
Date: Wed, 18 Dec 2013 04:05:57 +0000 (-0800)
Subject: * src/lread.c (openp): Fix previous change (don't leak file descriptors)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~1943
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=09af58633c2a83b61dee86bcf3794122b101671a;p=emacs.git

* src/lread.c (openp): Fix previous change (don't leak file descriptors)
---

diff --git a/src/lread.c b/src/lread.c
index c24af0cf9cd..b8b9189719b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1634,6 +1634,7 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
                           save_mtime = mtime;
                           save_string = string;
                         }
+                      else emacs_close (fd);
                     }
                   else
                     {